home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 10
/
AACD 10.iso
/
AACD
/
Programming
/
AmigaTalk
/
TestFiles
/
TestGraphics
< prev
next >
Wrap
Text File
|
2000-05-08
|
1KB
|
55 lines
scr <- Screen new: 'TestScreen'
scr setScreenModeID: 16r40D20001
scr open
win <- Window new: 'TestWindow'
win setFlags: 4111
win setIDCMPFlags: 320
win openOnScreen: 'TestScreen'
crs <- Colors new: 'TestWindow'
crs loadColors: 16 from: 'Amigatalk:AmigaTalk.colors'
crs setWindowColorReg: 1 red: 12 green: 12 blue: 12
crs setWindowColorReg: 2 red: 0 green: 0 blue: 8
crs setWindowColorReg: 3 red: 8 green: 8 blue: 8
crs setWindowColorReg: 4 red: 8 green: 0 blue: 8
crs setWindowColorReg: 5 red: 0 green: 8 blue: 8
crs setWindowColorReg: 6 red: 8 green: 8 blue: 0
itxt <-IText new: 'TestIText'
itxt setIText: 'Testing Graphics primitives...'
itxt setPens: 5 @ 2
itxt setITextOrigin: 100 @ 80
itxt registerTo: 'TestWindow'
win printIText: 'TestIText' at: 30 @ 20
p1 <- Painter new: 'TestWindow'
p1 setAPen: 4
p1 movePenTo: 200@20
p1 drawTo: 400@50
p1 setAPen: 5
p1 drawBoxFrom: 100@70 to: 150@20
p1 setAPen: 6
p1 drawLineFrom: 200@52 to: 400@52
p1 setAPen: 5
p1 drawCircle: 400@200 radius: 50
p1 setAPen: 8
p1 drawEllipse: 100@200 minaxis: 50 maxaxis: 100
p1 drawText: 'Test drawText Method' at: 100@55
p1 drawText: 'type: "win close;scr close" to exit!' at: 100@70
itxt remove